﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>
<%

Set Rs = Server.CreateObject("Adodb.Recordset")
	dim urls
        urls=Request.QueryString("urls")
        if urls="" then urls="index.asp"

		if sid<>"Null" then
                namer=session("username")
		Sql = "select [zf],[grade] from [qingtian_user] where [name]='"&namer&"'"
		Rs.Open Sql,conn,1,1
		if not (rs.bof and rs.eof)  then                
                zf=rs("zf")
                grade=rs("grade")
                end if
                Rs.close
                set rs=nothing
zft=qingtian.jibie(zf)
select case v
case "0"
we0="<br/>"
hr="-------------------<br/>"
%>
<card title="我的积分"><p align="<%=qingtian.px%>">
<%
case "1"
hr=""
zi="<span style=""color:#FF5500"">"
zi0="</span>"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
we1="</div>"
%>
<title>我的积分</title>
</head>
<body>
<!--#include virtual="/css.inc"-->
<%

End Select
        qingtian.info
%>		
<%=qingtian.qingsav("340")%>
<%=dao%>==我的积分==<%=we0%><%=we%>
<a href="shangchen.asp?sid=<%=sidd%>">购买积分道具</a><br/><%=hr%>
你现在的积分:<%=zi%><%=zf%><%=zi0%><br/>
你现在的等级:<%=zi%><%=grade%><%=zi0%><br/>
你现在的头衔:<%=zi%><%=zft%><%=zi0%><br/>
积分与头衔对应表:<br/>
<%
Set Rs = Server.CreateObject("Adodb.Recordset")
Sql = "select [na],[name] from qingtian_conjib order by [na] asc"
		Rs.Open Sql,conn,1,1
		if not (rs.bof and rs.eof)  then   
 For i=1 to Rs.RecordCount
%>
 积分:<%=Rs(0)%>---头衔:<%=Rs(1)%><br/>    
<%                
Rs.MoveNext
next
end if
		Rs.close
                set Rs=nothing
%>
<%=hr%><a href="fans.asp?sid=<%=sidd%>">查看朋友的积分</a><%=we0%><%=hr%>
<%=qingtian.qingsav("341")%><%=sou%><a href="chuwu.asp?sid=<%=sidd%>">我的物品</a>|<a href="shangchen.asp?sid=<%=sidd%>">商场</a>|<a href="index.asp?sid=<%=sidd%>">地盘</a><%=we0%>                  <%

else
Response.Redirect "/login.asp?sid=" & sidd & "&url=/user/myjifen.asp?sid="&sidd&"@@urls="&urls

end if

end Function
%>
